home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 75 / XENIATGM75.iso / Shareware / X-Setup 5.0 / _SETUP.1 / XQ IE Logos.xpl < prev    next >
Text File  |  1999-07-21  |  3KB  |  95 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="3"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Internet Explorer\Appearance"
  5. "NAME"="Picture Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.5"
  8. "TEXT 1"="Big Picture"
  9. "TEXT 2"="Small Picture"
  10. "TEXT 3"="Toolbar Picture"
  11. "DATA 1"="Bitmaps (*.bmp)|*.bmp"
  12. "DATA 2"="Bitmaps (*.bmp)|*.bmp"
  13. "DATA 3"="Bitmaps (*.bmp)|*.bmp"
  14. "DESCRIPTION 1"="Some vendors use customized versions of Internet Explorer where the "e" logo in the upper right corner has been changed. If you want to have the default icons of Internet Explorer, clear both fields."
  15. "DESCRIPTION 2"="To create your own logo, create two bitmaps: one with 38x38 pixels (height/width) and another with 22 pixels."
  16. "DESCRIPTION 3"="Then draw the different stages of the animation inside the bitmaps (from top to bottom), where the first pictures will be displayed if Internet Explorer does nothing."
  17. "DESCRIPTION 4"="If you are finished with it, enter the name for the 38 pixel-picture in "Big Picture" and the one with 22 pixels in "Small Picture"."
  18. "DESCRIPTION 5"="Toolbar Picture: You can change the background of the toolbar to any BMP picture. If you want to have the default background back, clear the field and click "Apply". In this case, a restart of your PC is required."
  19. "AUTHOR"="Xteq Systems"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  22.  
  23.  
  24.  
  25. 'NOTE! It seems that "BackBitmapIE5" is the new key to query for IE 5!
  26. Sub Plugin_Initialize 
  27.  if RegPathExists("HKCU\Software\Microsoft\Internet Explorer") then
  28.     v1=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BrandBitmap")
  29.     v2=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\SmBrandBitmap")
  30.     v3=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BackBitmap")
  31.  
  32.  
  33.     SetUIElement 1,v1
  34.     SetUIElement 2,v2
  35.     SetUIElement 3,v3
  36.  else
  37.     Disable
  38.  end if
  39. End Sub
  40.  
  41.  
  42. Sub Plugin_CheckData(ElementIndex)
  43. End Sub
  44.  
  45.  
  46.  
  47. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  48.  s=GetUIElement(1)
  49.  if s="" then
  50.   if IsEmpty(v1) then 
  51.      If IsEmpty(RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BrandBitmap"))=false then
  52.         Call RegDeleteValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BrandBitmap")
  53.      end if
  54.   end if
  55.  else
  56.   Call RegWriteValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BrandBitmap",s,1)
  57.  end if
  58.  
  59.  
  60.  s=GetUIElement(2)
  61.  if s="" then
  62.   if IsEmpty(v2) then 
  63.      If IsEmpty(RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\SmBrandBitmap"))=false then
  64.         Call RegDeleteValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\SmBrandBitmap")
  65.      end if
  66.   end if
  67.  else
  68.   Call RegWriteValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\SmBrandBitmap",s,1)
  69.  end if
  70.  
  71.  
  72.  s=GetUIElement(3) 
  73.  if len(s)=0 then
  74.     'delete it
  75.     s=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BackBitmap")
  76.     if IsEmpty(s)=false then
  77.        Call RegDeleteValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BackBitmap")
  78.     end if
  79.  else
  80.    'write it
  81.    Call RegWriteValue("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BackBitmap",s,1)
  82.  end if
  83.  
  84.  
  85.  
  86.  Call Logoff()
  87. End Sub
  88.  
  89.  
  90. Sub Plugin_Terminate 
  91. End Sub
  92.  
  93.  
  94.  
  95.